home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE18 / CLINIC / WATCHTOP.DPR < prev   
Encoding:
Text File  |  1996-10-11  |  325 b   |  20 lines
  1. program WatchTop;
  2.  
  3. uses
  4.   WinProcs, WinTypes;
  5.  
  6. function WatchWindow: HWnd;
  7. begin
  8.   Result := FindWindow('TWatchWindow', 'Watch List');
  9. end;
  10.  
  11. procedure WatchesOnTop;
  12. begin
  13.   SetWindowPos(WatchWindow, HWnd_TopMost, 0, 0, 0, 0,
  14.     swp_NoMove or swp_NoSize or swp_NoActivate);
  15. end;
  16.  
  17. begin
  18.   WatchesOnTop
  19. end.
  20.